home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Font / M / Metamorphosis Pro 2.0.cpt / Metamorphosis Pro 2.0 / Meta Pro Demo.rsrc / STR#_6022.txt < prev    next >
Encoding:
Text File  |  1991-05-03  |  2.0 KB  |  89 lines
  1. /CD{/NF exch def{exch dup/FID ne 1 index/UniqueID ne and{exch NF 3 1 roll put}
  2.  
  3. {pop pop}ifelse}forall NF}B
  4.  
  5. /MN{1 index length/Len exch def dup length Len add string dup
  6.  
  7. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}B
  8.  
  9. /RC{
  10.  
  11. (|______)anchorsearch
  12.  
  13. {
  14.  
  15. 1 index MN cvn/NewN exch def cvn
  16.  
  17. dup findfont exch FontDirectory exch known
  18.  
  19. {
  20.  
  21. dup maxlength dict CD dup/FontName NewN put dup
  22.  
  23. /Encoding MacVec put NewN exch definefont pop
  24.  
  25. }{
  26.  
  27. pop
  28.  
  29. }ifelse
  30.  
  31. }
  32.  
  33. {
  34.  
  35. cvn findfont pop
  36.  
  37. }ifelse
  38.  
  39. }B
  40.  
  41. /RF{dup cvn FontDirectory exch known{pop}{RC}ifelse}B
  42.  
  43. /MacVec 256 array def MacVec 0 /Helvetica findfont
  44.  
  45. /Encoding get 0 128 getinterval putinterval MacVec 127 /DEL put
  46.  
  47. MacVec 16#27 /quotesingle put MacVec 16#60 /grave put/NUL/SOH/STX/ETX
  48.  
  49. /EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN
  50.  
  51. /ETB/CAN/EM/SUB/ESC/FS/GS/RS/US MacVec 0 32 getinterval astore pop
  52.  
  53. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  54.  
  55. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  56.  
  57. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  58.  
  59. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  60.  
  61. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  62.  
  63. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  64.  
  65. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  66.  
  67. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  68.  
  69. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  70.  
  71. /guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
  72.  
  73. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  74.  
  75. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  76.  
  77. /daggerdbl/periodcentered/quotesinglbase/quotedblbase
  78.  
  79. /perthousand/Acircumflex/Ecircumflex/Aacute
  80.  
  81. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  82.  
  83. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  84.  
  85. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  86.  
  87. MacVec 128 128 getinterval astore pop
  88.  
  89.